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| EDTSKEYDEFKEY = interactive define ke bese -1984 00:42:57 AX-11 Bliss-32 V4.0-74 Pa 1) 
| . 1a-sep-19 4 90:59:35 EDT.SRC uEtoerey cist ” (1) | 
ZTITLE “EDTSKE KEY = interactive define key’ 
MODULE EDTSKEY 


YDEF 
DEFKEY ( ' Interactive define ke 
IDENT = 'V04-000" File: KEYDEFKEY.BLI Edit: JBS1017 


— } 


BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH E mM SUCH bce AND WITH Me, 3 
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- Revise call to enable autorepeat. JBS 30-Jan-1982 
- Make CR a valid part of the key definition. SMB 17-Feb-1982 
- Make DEFK illegal in NOKEYPAD mode - used only for defining 

keys in KEYPAD mode. SMB 1-Mar-1 
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Fix routine header. JBS 22-Apr-19 
EDTSSDEFK returns a status. JBS 18-May-1982 

aborts sonething. 18s 24-May-1982 
Frocn. STS 16-Jun-1982 ‘ 
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'® 
2 0 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
0 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
; ° CORPORATION. 
i* 
Bs '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
§ 005% : SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i 
§ 0 28 PITITITITILITIT LLL LLL LILLE LLL LLL LLL titiiiitii iii. 
1 } 
g 0080 | 
S 31 '++ 
5 3 FACILITY: EDT -- The DEC Standard Editor 
0034 1 | ABSTRACT: 
0 HH ! 
2 3 } Interactive define key 
0038 ; ENVIRONMENT: Runs at any access mode - AST reentrant 
4 904 i AUTHOR: Bob Kushiis, CREATION DATE: April 7, 1979 
4 004 i MODIFIED BY: | 
4 ape i 1-001 - Original. DJS 24-Feb-1981. This module was created by | 
4 04 : oxtroct ing routine EDTS$LN_DEFK from module KEYTRAN. 
“6 004 ! 1- - Regularize headers. JBS 09-Mar-1981 
4 004 ! 1- - Use new message codes. 3gs Orotyg, 1961 
: 1-004 = Add return values. JBS 02-Oct-1981 
i 
i 
1 
i 
i 
i 


NOU WN -O0O® 


Ssooe 
MOI 


PUPAAMMN 


. Set a flag if controi C octuee ly 
- Return true eyccess from EDTSSNXT 


Pass flag to EDTSSNXT_CMDCH to ind 


, 
ERT Sk YDEFKEY EDTSKEYDEFKEY = interactive define key 19- 00-1382 99:49:32 Pare) Oh ieen ds Tbte Page af 


<m 


accept repeat counts. STS ret 


H 1! t 

$ 28 33 1! 1-013 - Modi ty message a SMB 22-Jun-1 

; 1 | 1-014 = New implementation of defined keys. JBS 15-Aug-1982 

; «661 061 1 ! 1-015 = Change cursor positioning call to obsolete a module. JBS 05-Oct-1982 
; o¢ 062 1 ! 1-016 = Worry about having no cursor position to return to. This can happen 
; 6 0065 1! if this command is typed ahead wittaliy. JBS 22-Feb-198 

; ¢. Bees : } 1-017 = Don't allow GOLD repeat count in key definitions. JBS 09-May-1983 

: 66 0066 1 
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Declarations 
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SSBTTL "Declarations' 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM'; 


FORWARD ROUTINE 
EDTSSLN_DEFK; 


INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREQ’; 
LIBRARY ‘EDTSRC:KEYPADDEF '; 


i MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 
In the routine 


7 
1$-Sep-1964 00:48:57 YAK-TI OL iae-32 v4.0-74 


! Interactive ‘‘define key’ 
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EDTSKEYDEFKEY EDTSKEYDEFKEY = interactive define ke 16-Sep-1984 00:42:57 AX-11 Bliss-32 V4.0-74 Page 4 
104-000 EDTSSLN_DEFK = interactive define key 12288-1382 99:39:35 EDT.SRC KEvDer KEY BL fei . (3) 
; 108 S73] XSBTTL "EDTSSLNDEFK - interactive define key’ | 
3 196 ie ! GLOBAL ROUTINE EDTSSLN_DEFK ! Interactive define key 
Py = | 
; 10 8 1 
3 198 of8 1 !+4 
3 4 4] ! FUNCTIONAL DESCRIPTION: 
3; 6 (6111 ty 1! This routine is called when the change mode command DEFK is processed 
$ \\¢ Ht 1} to process the interactive define ney command. The user is prompted 
: NF Z : } for the key to be defined and the defining string. 
3 199 ret 1 ' FORMAL PARAMETERS: 
: 118 a6 1! 
Be laf NONE 
: «(118 88 1! 
; (119 0689 1 ! IMPLICIT INPUTS: 
; 120 0690 1! 
: 121 $683 1: EDTSS$T_CMD_BUF 
5 F ¢ 92 1! DT$$G_CS_LN 
. 5 0695 1! EDT$$G_LUR_COL 
> 126 0694 1! EDT$$G_KPAB 
; \¢3 0695 1! 
: 126 0696 1 ! IMPLICIT OUTPUTS: 
3; 127 0697 1! 
; 128 0698 1! EDTSS$A_CMD_BUF 
: 129 0699 1! EDTSS$A_CMD_END 
. 9 0700 1! EDT$$G_CC_BONE 
s 51 0701 1! 
3 1 ¢ 8708 1 ! ROUTINE VALUE: 
3 4 7035 1! : 
3; (134 0704 1! 1 = ok, 2 = end of journal file, 0 = fail or control C 
s 155 14 5 1! 
; 136 m8 1 ! SIDE EFFECTS: 
; t 14 0707 1! 
; 138 0708 1! May define a key, or undefine a key. 
; «4139 0709 1! 
: 140 0710 1 !-- 
3; «(141 0711 1 
3 rs | Oris BEGIN 
: 14 4 
3 61446 714 eco. ROUTINE 
3 «6145 0715 EDTSSSTOP_WKINGMSG, 
; rg Brig EDTSS$CHK_CC 
> 14 71 EDTS$SC_POSCSIF : NOVALUE, ! Position the cursor | 
3 148 718 EDTSSERA_MSGLN, 
3 «149 719 EDTSSMSG_BELL, 
: 150 720 EDTSSOUT_MSG, | 
s 63) 721 EDTSSTST BADK, | 
3 13 7 ; EDTSSDEFR, 
; 15 7 EDTSSCAN_KDEF, 
; «154 724 EDTSSNXT_CMDCH, ! Get the next command character | 
3 Wee 725 EDTSSTRN_KSTR, ! Build the command buffer | 
3 136 07 $ EDTSSPUT_CMDCH : NOVALUE, ! Put a character in the command buffer 
3; 615 07 EDTS$SC_RONREVID 
: 158 0728 EDT$$T1—~ENBLAUTREP, ! Enable or disable autorepeat 
3; «4159 0729 EDTSSTI_DELK; 
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14 
} The interactive define key facility only works in keypad mode. 


7 
EDTSKEYDEFKEY EDTSKEYDEFKEY = interactive define ke ih-se -1984 00:42:57 AX-11 Bliss-32 V4.0-74 Page 5 
Oa s000 EDTSSLN_DEFK = interactive define key 12288874388 99:39:35 feoT.sRe KEYDEFKEY.BLI; ° (3) 
1 7 
1 7 EXTERNAL 
1 7 EDTSSG_MSGFLG ! Message flag 
1 7 EDTS$G_MESSAGE_LINE, ! Line on which to print prompts 
1 7 EDTSS$G_KPA ' Are we in KEY or NOKEY mode 
1 7 EDTS$T_CMD_BUF, i Command buffer 
1 7 EDTSSA_CMD_BUF, ' Pointer to next char in command buffer 
1 7 EDTSSA_CMD_END, ! Pointer to end of info in command buffer 
1 7 EDT$$G_CS_CNO, ! Line on which the cursor is positioned 
1 7 EDTS$$G_CUR_COL, ' Column on which the cursor is positioned. 
: iS EDTS$G_CC_BONE; ! Set to 1 if control C actually aborts something 
; f MESSAGES ((PRSKEYDEF, KEYNOTDEF, NOWENTDEF, BADDEFK)); 
1 7 LOCAL 
1 7 KEY_ADDR 
1 , KEY : INITIAL (K_KEY_MAX + 1), ! Initialize to an illegal value 
1 7 ase 
1 7 SUCCEED, 
1 75 STATUS; 
: rep Ss 
'¢ 

1 75 ! Since this command uses the bottom two Lines for prompting and echoing, 
: Le } we don't want the Working message to continue printing. 
: Le EDTSSSTOP_WKINGMSG (); 
1 7 
1 7 
1 7 
1 7 
1 7 
1 7 
1 7 
1 7 
1 7 
1 7 
1 7 
1 7 
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6 IF ( NOT .EDT$$G_KPAD) 

6 THEN 

4 BEGIN 

6 EDT$$MSG_BELL (EDT$_BADDEFK); 

6 EDT$SA_CAD_END = CHSPTR (EDT$$T_CMD_BUF); 

66 4 RETURN (0) 

6 D; 

$ SUCCEED = 1; 

u Set up the buffer for the definition to go into 

77 "_ EDTSSA_CMD_BUF = CHSPTR (EDTS$$T_CMD_BUF); 

As : EDTS$A_CMD-END = CHSPTR (EDT$S$T~CMD-BUF, 256); 

As Prompt for the key. 

77 " EDTSSOUT_MSG (.EDTS$G_MESSAGE_LINE, EDTS_PRSKEYDEF, 0, 0); 

AA SUCCEED = EDTSSNXT_CMDCH (KEY? 0); ' zero means no repeat counts allowed 
28 IF (. SUCCEED NEQ 1) THEN RETURN (.SUCCEED); 

7 ‘+ 

i Check for the validity of the key. 

786 2. | 
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: | 
EDTSKEYDEFKEY DISKEYDEFKEY = interactive define ke 1b-se -1984 00:42:57 AX-11 Bliss-32 V4.0-74 Pa 6) 
vou EDISSEN DEF. = interactive define key 1e-8eb-1obe 3:38:39 — Lebr seed verKeY eri 24 3) 
; 4 ? 7 If EDTSSTST_BADK (.KEY) | ; 
; 13 ? 5 BEGIN | 
; 1 , 1 : Bad key. Put out a message and return. | : 
: $58 rag 3 EDTSSMSG_BELL (EDTS KEYNOTDEF); | : 
3 226 794 EDTS$A_CAD_END = CHSPTR (EDTS$T_CMD_BuUF); | : 
; 225 795 RETURN” (0); : 
RR : Pa ei 
: 28 798 5 ts | : 
3 , 44 Now prompt for the definition. | . 
3 1 801 EDTSSOUT_MSG (.EDTS$G_MESSAGE_LINE, EDTS_NOWENTDEF, 0, 0); | : 
: : 0 i Loop, regding characters until we see the enter key. Keypad and function keys | ; 
: 804 ' and gover ony hing are translated, delete and CTRL/U have the usual | : 
3 3 Bape } meanings and all other characters are inserted directly. : 
: i 0807 CON_U = 0; ! Note whether CONTROL U entered ; 
: 33 0809 WHILE 1 bo 3 
; 41 O81 SUCCEED = EDTSSNXT_CMDCH (C, 0); ! No GOLD repeat counts ; 
: “§ 0818 IF (.SUCCEED NEQ 1) THEN RETURN (2); | 3 
: 265 O15 § IF EDTSSCHK_CC () : 
>: 246 816 THEN 3 
3 247 0817 4 BEGIN ; 
3 248 818 4 EDTSSA_CMD_END = EDT$$T_CMD_BUF; 3 
3: 249 0819 4 EDTS$G_CC_BONE = 1; | ; 
: 250 0 4 RETURN (OJ; 3 
; 31 08 1 : é 
; 3g 08 : SELECTONE .C OF : 
Be BB _ : 
> 256 08 B [K_ENTER) : ' The ENTER key, end of definition ; 
; 4 08 i EXITLOOP; | : 
: 259 : 9 CK_KPAD_BASE to K_KEY_MAX] : ; 
: 360 B30 4 BEGIN | : 
; $¢ 8 § 2 Keypad, function or gold/something key, place the translation in the buffer. | ; 
; 66 H 4 4 : SUCCEED = EDTSSTRN_KSTR (.C, 0, 1); | ; 
: 66 g 4 IF (.SUCCEED EQL 2) THEN RETURN (2); | : 
: 268 B 4 EDTSSA_CMD_END = CHSPTR (EDTSST_CMD_BUF, 256); | ; 
: 368 3 EN et 
> 271 1 CASC_K_DEL) : | ; 
3 i ¢ 4 BEGIN ; 
3 7 4 !+ é 


IF ( NOT .STATUS) THEN SUCCEED = 0; 


END 
ELSE 
BEGIN 


'¢ 


i Clear the definition of a key 
: except do nothing if the defi 


Sotinee as the null strin 


nition was terminated by OC TRL/U. 
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EDTSKEYDEFKEY EDTSKEYDEFKEY = interactive define ke 16-Sep-1984 00:42:57 AX-11 Bliss-32 V4.0-74 Page 7) 

Oa EDTSSLN_DEFK = interactive define key 12-808-1 382 99:39:35 febT.sRe KEverkey oui 4 . (3) | 
: 276 4 4! Delete ke Delete the previous character unless we are | ° 
3 64m? 5 4! the beginning. 4 : ah stay ; 
: ef rk 4 !- F 
° 7 4 4 | ; 
; ef § 5 IF CHSPTR_GTR (.EDTSSA_CMD_BUF, EDTS$T_CMD_BUF) | ; 
:  3f8 $3 THEN cry | ; 
H 8 1 EDTSSA_CMD_BUF = CHSPLUS (.EDTSSA_CMD_BUF, -1); ; 
3 ¢ § EDTSSTY_DECK (CHSRCHAR (.EDT$$A_CAD_BOF)); : 
3 Hi 53 4 END; ; 
3 54 4 3 
; be se ; END; : 
: 28 5 CASC_K_CTRL_U) : : 
; 288 OBS 4 BESIN ~ 3 
; 289 $839 4 '¢ 3 
; 290 0860 4 ! CTRL/U: abort the define key command. 3 
: $33 Opes CON.U = 1 
; = 13 . 
> 29 Opes 4 EDTSSA_CMD_BUF = CHSPTR (EDTS$$T_CMD_BUF); ; 
: 29% 0864 4 EXITLOOP; | : 
; 295 0865 3 $ 
; 296 0866 : 
: 297 0867 COTHERWISE) : 3 
: 598 0868 3 '+ | 
: 299 0869 ! None of the above: must be a character (other than DEL or CTRL/U) from ; 
$ it baoe the main keyboard. Insert it in the definition. | 3 
; 30 0872 EDTSSPUT_CMDCH (.C, 1); | ; 
; ww 087 TES; 3 
: 304 0874 3 
; 305 0875 '¢ $ 
: 306 0876 ! Turn on autorepeat, since seeing a keypad key will have turned : 
; 307 0877 ! it off. 3 
; 308 0878 - 3 
; 09 0879 EDTSSTI_ENBLAUTREP (1); : 
3 0 peee END; 3 
3 1 81 : 
3 § pane '¢ 3 
3 088 !' Now define the key. 3 
3 4 Bare !- 3 
3 5 0885 3 
; 316 0886 IF CHSPTR_NEQ (.EDTS$SA_CMD_BUF, EDTS$$T_CMD_BUF) ; 
: 317 887 THEN : 
3 8 8 BEGIN 3 
; ° 9 STATUS = EDTSSDEFK (.KEY, EDTSS$T_CMD_BUF, CHSDIFF (.EDTSSA_CMD_BUF, EDTS$ST_CMD_BUF)); : 
3 1 : 
° 5 - 
Py 5 | Z 
: $ 3 
; 328 : 
; 329 | ; 
3 0 3 

| 


) 
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EDTSKEYDEFKEY EDTSKEYDEFKEY = interactive define ke bese -1984 42:57 AX-11 Bliss-32 V4.0-74 Pa 
et EDTSSLN_DEFK = interactive define key ae 99:59:35 EDT SREIKEYDEFKEY OL, = a 
; 331 901 4 IF (.CON_U EQL 0) 
3 § § 3 THEN 
; 903 4 BEGIN 
i 334 9 4 4 STATUS = EDTSSCAN_KDEF (.KEY); 
; 906 4 IF ( NOT .STATUS) THEN SUCCEED = 0; | 
: 338 908 END; 
: 339 909 
: 340 910 END; 
; 1 911 
: 4g ge \¢ 
3 91 i Reset the buffer pointer, erase the command Line and reposition the cursor if necessary 
; te pate ; _before continuing. 
: 346 O31g 3 EDTSSA_CMD_BUF = EDTSST_CMD_BUF 
: 347 91 EDTS$A_CMD-END = EDTS$$T~CMD~BUF 
: 348 918 EDTS$G-MSGFLG = 1; 
3 34 aah EDTSSERA_MSGLN (); 
; 331 09 1 IF (.EDTS$G_CS_LNO GEQ 0) THEN EDTS$SC_POSCSIF (.EDT$$G_CS_LNO, .EDT$$G_CUR_COL); 
; 2g 09 g EDTS$S$SC_NONREVID (); 
; 3 $9 ¢ iat had 
Py e nad an error int t ° 
; 56 09 é & Ww pr an appropria e message 
; 38 09 8 IF (.SUCCEED EQL 0) THEN EDTS$MSG_BELL (.STATUS); 
: 360 0930 RETURN (. SUCCEED); 
: 1 0931 1 END; ! of routine EDTSS$LN_DEFKEY 


-TITLE EDTSKEYDEFKEY EDTSKEYDEFKEY - interactive defin 
IDENT \V04-000\ . 
-EXTRN EDTSSSTOP_WKINGMSG 


-EXTRN EDTSSCHK_C $$SC_POS 
“EXTRN EDTSSERA-MSGLN, EDTSSMSG_BELL 
“EXTRN EDTS$SOUT "MSG, EDT$$TST_BA 
SEXTRN EDTSSDEFR, EDTSSCAN KDEF 
-EXTRN EDTSSNXT_ EmDCH H, EDISST KSTR 
-EXTRN EDTS$$PUT~C EO Tsssc NAONREVID 
-EXTRN EDTS$Ti_ ENGL DAUTREP 

SEXTRN EDT$$TI~DELK EDTS$G _MSGFLG 
SEXTRN EDT$$G_MESSAGE_LINE 

-EXTRN EDTSSG_KPAD, EDTSST go BUF 
TEXTRN EDTSSA~CMD_BUF, EDTSSA_CMD_END 
-EXTRN EDT$$G~CS_CNO, EDT$$G_CuR C 
SEXTRN EDTS$$SG~CC"DONE, EDT$_PRSKEYDEF 
-EXTRN EDTS_KEYNOTDEF, EDTS_NOWENTDEF 
.EXTRN EDTSTBADDEFK 


-PSECT _EDTSCODE,.NOWRT, SHR, PIC,2 


OFFC 00000 EDTSSLN_DEFK, Save R2,R3,R4,R5,R6,R7,R8,R9,-; 0675 
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ev - interactive define key 


EDTSKEYDEF 
EDTSSLN_DE 


EDTSKEYDEFKEY 
04000 
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EDTSKEYDEFKEY EDTSKEYDEFKEY = interactive define k 
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; Routine Size: 457 bytes, Routine Base: _EDTSCODE + 0000 


i 368 


$988 ! <BLF /PAGE 


i EDT. SRC IRE YDEFKEY-OL1 1 


TUS 
EDTSSHSG, BELL 
ny gts 


RO 


ED) 
v04 


00: 
Lines/CPU Min: 710 
Lexemes/CPU-Min: 8021 
Memory Used: 139 pages 
Compication Complete 


Rg 
EDTSKEYDEFKEY EDTSKEYDEFKEY = interactive define ke 1b-5e -1984 00:42:57 AX-11 Bliss-32 V4.0-74 Page 12. 
Oa 000 EDTSSLN_DEFK = interactive define hey 1 ~8ep-19 4 99:59:35 YEDT SREIKEYDErKEY 1 (44 . (4) | 
; $63 a335 END ! of module EDTSKEYDEFKEY 
; 936 0 ELUDOM | 
| 
| 
; PSECT SUMMARY | 
: Name Bytes Attributes 
: _EDTSCODE 457 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
Ts cee eee ee ee Symbols ocossoe- Pages Processing | 
3 File Total Loaded Percent Mapped Time 
: ~$255$DUA8: LEDT. SRCJEDT 132: 377 5 1 40 00:00.2 
; _$255$0UA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
; _$255$0UA28:CEDT.SRCIJKEYPADDEF .L32;1 34 3 8 7 00:00.1 
; COMMAND QUALIFIERS 
3 a = oh aa haa tiated tc since ns tat MSRC$:KEYDEFKEY.BLI/UPDATE=(ENHS$:K 
Size: 457 code + 0 data bytes 
Run Time: 0:20.7 
Elapsed Time: 26.7 
| 
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